home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / WHEEL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.0 KB  |  152 lines
  1. 0 REM -- FILENAME: "WHEEL OF FORTUNE".
  2. 10 POKE53280,0:POKE53281,0:SZ=RND(-TI/37)
  3. 20 DIMPR$(20),PU$(200),LP(200),WH$(200),ZP$(50),ZP(50)
  4. 30 PR$(1)="300":PR$(2)="150":PR$(3)="1000":PR$(4)="500":PR$(5)=PR$(1)
  5. 40 PR$(6)="BANKRUPT":PR$(7)="LOSE MONEY":PR$(8)="FREESPIN":PR$(9)="550"
  6. 50 PR$(10)="250":PR$(11)="350":PR$(12)="750"
  7. 60 PRINT""
  8. 70 PRINT "[158][147]          [215]HEEL [207]F [198]ORTUNE!"
  9. 80 PRINT"          [194]Y: [194]O [218]IMMERMAN"
  10. 90 PRINT"        [195]OMPLETED: 05/06/1988"
  11. 100 PRINT "[154]        [211]ETTING [213]P [208]UZZLES...";
  12. 110 RESTORE
  13. 120 READPU$(PL),WH$(PL):IFPU$(PL)="00"THENPL=PL-1:GOTO140
  14. 130 PL=PL+1:GOTO120
  15. 140 READZP$(NB),ZP(NB):IFZP$(NB)="**"THENNB=NB-1:GOTO160
  16. 150 NB=NB+1:GOTO 140
  17. 160 PRINT"":PZ=INT(RND(TI)*PL)+1
  18. 170 PZ$=PU$(PZ)
  19. 180 FORI=1TOLEN(PZ$)
  20. 190 LP(I)=0
  21. 200 NEXT
  22. 210 FORI=1TOLEN(PZ$)
  23. 220 IFMID$(PZ$,I,1)=CHR$(32)THENLP(I)=1
  24. 230 NEXT:PRINT"[147][154]"
  25. 240 REM ***** MAIN ROUTINE *****
  26. 250 FORI=1TO2000:NEXT:PRINT:PRINT"[147][159][208]UZZLE TYPE: ";
  27. 260 IFWH$(PZ)="PE"THENPRINT"[208][197][210][211][207][206] [207][210][160][208][197][207][208][204][197]"
  28. 270 IFWH$(PZ)="EV"THENPRINT"[197][214][197][206][212]"
  29. 280 IFWH$(PZ)="TH"THENPRINT"[212][200][201][206][199][160][207][210][160][212][200][201][206][199][211]"
  30. 290 IFWH$(PZ)="PH"THENPRINT"[208][200][210][193][211][197]"
  31. 300 IFWH$(PZ)="PL"THENPRINT"[208][204][193][195][197]"
  32. 310 IFWH$(PZ)="TI"THENPRINT"[212][201][212][204][197]"
  33. 320 IFWH$(PZ)="OC"THENPRINT"[207][195][195][213][208][193][212][201][207][206]"
  34. 330 IFWH$(PZ)="QU"THENPRINT"[209][213][207][212][193][212][201][207][206]"
  35. 340 IFWH$(PZ)="FC"THENPRINT"[198][201][195][212][201][207][206][193][204] [195][200][193][210][193][195][212][197][210]"
  36. 350 IFWH$(PZ)="LA"THENPRINT"[204][193][206][196][205][193][210][203]"
  37. 360 PRINT"[158]":FORI=1TOLEN(PZ$):LQ$=MID$(PZ$,I,1)
  38. 370 IFLP(I)=1THENPRINTLQ$;:GOTO390
  39. 380 IFLP(I)=0THENPRINT"-";
  40. 390 NEXTI:CN=0
  41. 400 PRINTCHR$(13)+"[150][205]ONEY:[158]";MN;"[157]   [150][198]REE SPINS:[158]";SN;"[157]       "
  42. 410 PRINT"[150] [213]SED:[158] ";LU$
  43. 420 INPUT"([211])PIN, ([214])OWEL, ([199])UESS, ([209])UIT";CH$
  44. 430 IFCH$="Q"ORCH$="[209]"THENEND
  45. 440 IFCH$="G"THENPRINT"[156][199]UESS THE [208]UZZLE:":GOTO810
  46. 450 IFCH$="V"THENPRINT"[156][194]UY A [214]OWEL:":GOTO620
  47. 460 IFCH$<>"S"THEN420
  48. 470 PRINT"[156][211]PIN THE [215]HEEL: ";:FORRO=1TO10
  49. 480 RT=INT(RND(1)*12)+1:PRINTPR$(RT);:FORI=1TOLEN(PR$(RT)):PRINTCHR$(20);:NEXT
  50. 490 FORW=1TO50:NEXTW:NEXTRO:PRINTPR$(RT)
  51. 500 IFPR$(RT)="FREESPIN"THENSN=SN+1:FORI=1TO2000:NEXTI:GOTO240
  52. 510 IFPR$(RT)="BANKRUPT"ANDSN<1ANDMN>0THENMN=0:GOTO240
  53. 520 IFPR$(RT)="BANKRUPT"ANDSN>0THENSN=SN-1:GOTO240
  54. 530 IFPR$(RT)="BANKRUPT"THENMN=MN-500:GOTO240
  55. 540 IFPR$(RT)="LOSE MONEY"ANDSN<1THENMN=MN-250:GOTO240
  56. 550 IFPR$(RT)="LOSE MONEY"ANDSN>0THENSN=SN-1:GOTO240
  57. 560 INPUT"[159][197]NTER A [195]ONSONANT";LT$:IFLEN(LT$)>1THEN560
  58. 570 FL=0:FORI=1TOLEN(LU$):IFLT$=MID$(LU$,I,1)THENFL=1
  59. 580 NEXT:IFFL=0THENLU$=LU$+LT$
  60. 590 IFFL=1THEN240
  61. 600 LT=ASC(LT$):IFLT<66ORLT>90ORLT=69ORLT=73ORLT=79ORLT=85THEN560
  62. 610 GOTO740
  63. 620 IFMN>=250THEN640
  64. 630 PRINT:PRINT"[154][211]ORRY, NOT ENOUGH MONEY!":FORU=1TO2000:NEXT:GOTO240
  65. 640 MN=MN-250
  66. 650 INPUT"[154][214]OWEL";LT$:IFLT$="A"ORLT$="E"ORLT$="I"ORLT$="O"ORLT$="U"THENGOTO670
  67. 660 GOTO650
  68. 670 FL=0:FORI=1TOLEN(LU$):IFLT$=MID$(LU$,I,1)THENFL=1
  69. 680 NEXT:IFFL=0THENLU$=LU$+LT$
  70. 690 PO=0:FORI=1TOLEN(PZ$)
  71. 700 IFMID$(PZ$,I,1)=LT$THENLP(I)=1:PO=PO+1
  72. 710 NEXT
  73. 720 IFPO>0THENPRINT"[154][212]HERE ARE"+STR$(PO)+" "+LT$+"'S.":GOTO240
  74. 730 PRINT"[154][211]ORRY, THERE ARE NO "+LT$+"'S...":FORI=1TO2000:NEXT:GOTO240
  75. 740 PO=0:FORI=1TOLEN(PZ$)
  76. 750 IFMID$(PZ$,I,1)=LT$THENLP(I)=1:PO=PO+1:MN=MN+VAL(PR$(RT))
  77. 760 NEXT
  78. 770 IFPO>0THENPRINT"[154][212]HERE ARE"+STR$(PO)+" "+LT$+"'S.":GOTO240
  79. 780 PRINT"[154][211]ORRY, THERE ARE NO "+LT$+"'S...":FORI=1TO2000:NEXT
  80. 790 MN=MN-VAL(PR$(RT))
  81. 800 GOTO240
  82. 810 INPUT"[154][199]O AHEAD";TR$:IFTR$<>PZ$THEN240
  83. 820 PRINT" [217][207][213] [196][201][196] [201][212]!!! [146]":PRINT
  84. 830 IFMN>0THENGOSUB900
  85. 840 IFMN>=0THENPRINT"[154] [217]OUR TOTAL [195]ASH [215]INNINGS ARE $";MN
  86. 850 IFMN<0THENPRINT"[153] [217]OU [207]WE THE [215]HEEL OF [198]ORTUNE $";ABS(MN)
  87. 860 PRINT:PRINT"[158] [194]YE [194]YE..."
  88. 870 INPUT"[208]LAY [193]GAIN ([217]/[206])";YN$:YN$=LEFT$(YN$,1):IFYN$="[217]"ORYN$="Y"THENRUN0
  89. 880 PRINT:PRINT"[150][193]LL [196]ONE![154]";:CLR:END
  90. 890 STOP
  91. 900 FORI=1TONB:PRINT"[155]";CHR$(I+64);") ";ZP$(I);TAB(20);"- $";ZP(I)
  92. 910 NEXT
  93. 920 PP=0:PRINT"[153][195]HOOSE ITEM; '*' PUTS":PRINT"THE REST ON A [199]IFT [195]ERTIFICATE."
  94. 930 PRINT"[205][207][206][197][217] : $";MN"[157] "
  95. 940 FORI=1TONB:IFZP(I)<MNTHENPP=1
  96. 950 NEXT:IFPP=0THENPRINT"[150][195]AN'T BUY [193]NYTHING...";:FORI=0TO2000:NEXT:GOTO1020
  97. 960 GETA$:IFA$=""THEN960
  98. 970 IFA$="*"THEN1020
  99. 980 IFASC(A$)<65ORASC(A$)>(65+NB)THEN960
  100. 990 A=ASC(A$):A=A-64:IFZP(A)>MNTHEN960
  101. 1000 MN=MN-ZP(A):PRINT "[217]OU NOW HAVE A LOVELY, BRAND NEW":PRINTZP$(A):PRINT
  102. 1010 FORI=0TO3000:NEXT:GOTO900
  103. 1020 PRINT:PRINT:PRINT"[217]OU GOT MANY [215]ONDEROUS [208]RIZES TODAY!":RETURN
  104. 1030 STOP
  105. 1040 DATA SUNDAY NEWSPAPER,TH,HIGH SCHOOL SWEETHEART,PE
  106. 1050 DATA THE HOPE DIAMOND,TH,ALL DRESSED UP AND NO PLACE TO GO,PH
  107. 1060 DATA DIAHANN CAROL,PE,SILVER WEDDING ANNIVERSARY,EV
  108. 1070 DATA HOT SPRINGS ARKANSAS,PL,A STITCH IN TIME SAVES NINE,PH
  109. 1080 DATA MICHAEL LANDON,PE,SWEAT SHIRT,TH,OFF THE TOP OF MY HEAD,PH
  110. 1090 DATA LEMON MARANGUE PIE,TH,LEAVE IT TO BEAVER,TI
  111. 1100 DATA DOLLARS AND CENTS,TH,THE LUCK OF THE IRISH,PH
  112. 1110 DATA CHOCOLATE PUDDING,TH,SURPRISE BIRTHDAY PARTY,EV
  113. 1120 DATA DENVER COLORADO,PL,HOPE SPRINGS ETERNAL,QU,FAMOUS LAST WORDS
  114. 1130 DATA PH,THE AGONY AND THE ECSTASY,TI,IN MORE WAYS THAN ONE,PH
  115. 1140 DATA VOLLEYBALL TEAM,PE,PEACE OFFERING,TH,JOHN WAYNE,PE
  116. 1150 DATA NINE TIMES OUT OF TEN,PH,LET THE CAT OUT OF THE BAG,PH
  117. 1160 DATA SENATOR BARRY GOLDWATER,PE,CASE DISMISSED,PH,SOCCER BALL,TH
  118. 1170 DATA LOOK BEFORE YOU LEAP,PH,COMPUTER SOFTWARE,TH
  119. 1180 DATA SPLIT MY SIDES LAUGHING,PH,MEAT AND POTATOES,TH
  120. 1190 DATA FOOTBALL STADIUM,PL,DYNASTY,TI,THE BIG BAD WOLF,FC
  121. 1200 DATA YOU CAN'T TAKE IT WITH YOU,PH,CALM COOL AND COLLECTED,PH
  122. 1210 DATA MAGIC JOHNSON,PE,WILD GOOSE CHASE,PH,CASHMERE SWEATER,TH
  123. 1220 DATA AS THE CROW FLIES,PH,COME UP AND SEE ME SOMETIME,QU
  124. 1230 DATA TICKET STUB,TH,NOT A MOMENT TOO LOSE,PH,SUPER BOWL,EV
  125. 1240 DATA SENSE OF HUMOR,PH,THE LOVE BOAT,TI,SPLIT SECOND,PH
  126. 1250 DATA A LIVING LEGEND,PH,NEW ORLEANS,PL,PROGRAMMER,OC
  127. 1260 DATA PLANET EARTH,PL,KISS,PE,DALLAS COWBOYS,PE,THE FONZ,FC
  128. 1270 DATA THE TOWER OF LONDON,LA,THE PIRATES OF PENZANCE,TI
  129. 1280 DATA ROOM TEMPERATURE,PH,THE JACKSON FIVE,PE,THE SEVEN DEADLY SINS,PH
  130. 1290 DATA DO YOU KNOW THE WAY TO SAN JOSE,TI,CIRCUS OF THE STARS,EV
  131. 1300 DATA SATURDAY NIGHT LIVE,TI,HAVING THE TIME OF MY LIFE,PH
  132. 1310 DATA SALT LAKE CITY UTAH,PL,MORSE CODE,TH,ANGELA LANDSBURY,PE
  133. 1320 DATA ROOM AND BOARD,PH,ROMPER ROOM,TI
  134. 1330 DATA TRIAL LAWYER,OC,WILLIAM SHATNER,PE,SHERWOOD FOREST,PL
  135. 1340 DATA SOMEBODY UP THERE LIKES ME,PH,AND THEY LIVED HAPPILY EVER AFTER,PH
  136. 1350 DATA WALTER CRONKITE,PE,RACING HORSE,TH,EXTENSION PHONE,TH
  137. 1360 DATA MY FAIR LADY,TI,PARLIAMENTARY PROCEDURE,TH,PETER PAN,FC
  138. 1370 DATA LLOYD BRIDGES,PE,LOS ANGELES LAKERS,PE,WHEEL OF FORTUNE,TI
  139. 1380 DATA DON RICKLES,PE,FOREVER AND A DAY,PH,ONE FROM THE HEART,PH
  140. 1390 DATA I ONLY HAVE EYES FOR YOU,QU,CONFLICT OF INTEREST,PH
  141. 1400 DATA WINNIE THE POOH,FC,DELUSIONS OF GRANDEUR,PH,LOVE IS BLIND,PH
  142. 1410 DATA WOMEN AND CHILDREN FIRST,PH,SPACE THE FINAL FRONTIER,QU
  143. 1420 DATA 00,00
  144. 1430 DATA UMBRELLA TABLE,119,STRUCTO GAS GRILL,219,ROPE HAMMACK,69
  145. 1440 DATA GOLD WATCH,117,MINOLTA CAMARA,129,ABSTRACT PAINTING,2000
  146. 1450 DATA COLOR TV,300,GENERIC COMPUTER,1500,CERAMIC DALMATION,400
  147. 1460 DATA REFRIGERATOR,579,12MOS FRUIT CAKES,50,HIS AND HER BIKES,379
  148. 1470 DATA "TRIP TO [197]THIOPIA",3
  149. 1480 DATA"**",99
  150. 1490 STOP
  151. 1500 END
  152.